COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN
C00004 ENDMK
C⊗;
BEGIN
FRAME BLOCK0;
BLOCK0 ← FRAME (ROT(ZHAT,-155.0*DEG)*ROT(YHAT,178.5*DEG)*ROT(ZHAT,171.7*DEG), VECTOR(50.726,42.845,1.894)*INCHES);

FRAME BLOCK1;
BLOCK1 ← FRAME (ROT(ZHAT,39.0*DEG)*ROT(YHAT,178.1*DEG)*ROT(ZHAT,153.7*DEG), VECTOR(8.168,46.331,1.992)*INCHES);

FRAME BLOCK2;
BLOCK2←BLOCK1 - 3*YHAT*INCHES;

FRAME BLOCK;

SCALAR I;

MOVE BARM TO BPARK WITH DURATION=3*SECONDS;
MOVE BARM TO BLOCK1 SLOWLY;

FOR I←1 STEP 1 UNTIL 4
   DO	BEGIN
	OPEN BHAND TO 3*INCHES;
	BLOCK←BLOCK0;
	MOVE BARM TO BLOCK;
	CENTER BARM;
	AFFIX BLOCK TO BARM RIGIDLY;
	MOVE BLOCK TO BLOCK1
		ON FORCE(ZHAT)≥40*OUNCES
			DO BEGIN
				STOP BLOCK;
				BLOCK←←BLOCK0+2*ZHAT*INCHES;
				MOVE BLOCK TO BLOCK + ZHAT*INCHES;
				MOVE BLOCK TO BLOCK2;
			   END;
	UNFIX BLOCK FROM BARM;
	END;

OPEN BHAND TO 3*INCHES;
MOVE BARM TO BPARK;
END;